home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / X11 / tclMotif-1.4 / tests / hidden.test < prev    next >
Encoding:
Text File  |  1995-06-29  |  882 b   |  50 lines
  1.  
  2. if {[string compare test [info procs test]] == 1} then \
  3.   {source defs}
  4.  
  5. # set VERBOSE 1
  6. # set INTERACTIVE 1
  7.  
  8.  
  9. #############
  10. # starts here
  11. #############
  12.  
  13. xtAppInitialize -class List
  14. . setValues -allowShellResize true
  15.  
  16. xmRowColumn .rc managed
  17.  
  18. xmScrolledText .rc.text managed
  19. xmScrolledList .rc.list managed
  20. xmInformationDialog .rc.list.id managed
  21.  
  22. ###################################
  23. # hidden parents tests
  24. ###################################
  25.  
  26. test hidden-1.1 {hidden scrolled text parent} {
  27.     .rc.text parent
  28. } {.rc..text}
  29.  
  30. test hidden-1.2 {hidden scrolled list parent} {
  31.     .rc.list parent
  32. } {.rc..list}
  33.  
  34. test hidden-1.3 {hidden dialog parent} {
  35.     .rc.list.id parent
  36. } {.rc.list..id}
  37.  
  38.  
  39. #############
  40. # Finish up #
  41. #############
  42. if { ! $INTERACTIVE} {
  43.   .rc.text destroyWidget
  44.   .rc.list.id destroyWidget
  45.   .rc.list destroyWidget
  46.   .rc destroyWidget
  47. } else {
  48.   . mainLoop
  49. }
  50.